home *** CD-ROM | disk | FTP | other *** search
- TSlider Component
- -----------------
-
- This component is FreeWare. It has been put into the public domain with the following conditions:
-
- 1. The component and source must not be sold without the author's permission.
- 2. The modified source must not be published without the author's permission.
-
- By Colin Wilson - woozle@cix.compulink.co.uk
-
-
- The TSlider object is a representation of a Slider - as used in mixers, lighting
- control units, etc.
-
- It defines the following new public properties:
-
- property TrackWidth : Integer
-
- The width of the slider track.
-
- property TrackColor : TColor
-
- The slider track color.
-
- property ThumbHeight : Integer
-
- The height of the Thumb (the bit that slides). The thumb is always as
- wide as the component - so can be controlled by the Width property.
-
- property ThumbColor : TColor
-
- The thumb colour.
-
- property Orientation : TSliderOrientation
-
- slHorizontal or slVertical. Controls whether the slider slider left/right
- or up/down.
-
- property Minimum : Integer
-
- The minimum slider value.
-
- property Maximum : Integer
-
- The maximum slider value.
-
- property Value : Integer
-
- The current slider value.
-
- The following new protected procedure is defined:
-
- procedure DrawThumb; virtual;
-
- Can be overriden to draw custom thumbs or thumbs with legends, bitmaps, etc.
-
- The following new event is defined:
-
- property OnValueChange : TNotifyEvent;
-
- Called whenever the value changes
-
-
-